﻿Imports QLTHUVIEN.DTO
Imports QLTHUVIEN.DAO

Public Class TheDocGiaBUS
    Public Function LayDanhSach() As DataTable
        Dim tdgiaDao As New TheDocGiaDAO()
        Dim dt As DataTable = tdgiaDao.LayDanhSach()
        Return dt
    End Function

    Public Sub ThemDocGia(ByVal docGia As TheDocGiaDTO)
        Dim dgiaDao As New TheDocGiaDAO()
        dgiaDao.ThemTheDocGia(docGia)
    End Sub

    Public Sub SuaTheDocGia(ByVal docGia As TheDocGiaDTO)
        Dim dgiaDao As New TheDocGiaDAO()
        dgiaDao.SuaTheDocGia(docGia)
    End Sub

    Public Sub XoaTheDocGia(ByVal docGia As TheDocGiaDTO)
        Dim dgiaDao As New TheDocGiaDAO()
        dgiaDao.XoaTheDocGia(docGia)
    End Sub

End Class
